object Form1: TForm1
  Left = 214
  Top = 174
  Width = 592
  Height = 422
  VertScrollBar.Range = 210
  ActiveControl = Memo1
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  OldCreateOrder = True
  Visible = True
  PixelsPerInch = 96
  TextHeight = 11
  object Splitter1: TSplitter
    Left = 0
    Top = 169
    Width = 576
    Height = 3
    Cursor = crVSplit
    Align = alTop
    ExplicitWidth = 584
  end
  object Memo1: TMemo
    Left = 0
    Top = 172
    Width = 576
    Height = 170
    Align = alClient
    Lines.Strings = (
      'import spam'
      ''
      'class MyPoint(spam.Point):'
      '  def Foo(Self, v):'
      '    Self.OffsetBy(v, v)'
      ''
      'p = spam.Point(2, 5)'
      'print p, type(p)'
      'p.OffsetBy( 3, 3 )'
      'print p.x, p.y'
      'print "Name =", p.Name'
      'p.Name = '#39'Hello world!'#39
      'print "Name =", p.Name'
      ''
      'p = spam.Point(2, 5) '
      'print p, type(p)'
      'p.OffsetBy( 3, 3 )'
      'print p.x, p.y'
      ''
      '# create a subtype instance'
      'p = MyPoint(2, 5)'
      'print p, type(p)'
      'p.OffsetBy( 3, 3 )'
      'print p.x, p.y'
      'p.Foo( 4 )'
      'print p.x, p.y'
      'print dir(spam)'
      'print spam.Point'
      'print "p = ", p, "  --> ",'
      'if type(p) is spam.Point:'
      '  print "p is a Point"'
      'else:'
      '  print "p is not a point"'
      'p = 2'
      'print "p = ", p, "  --> ",'
      'if type(p) is spam.Point:'
      '  print "p is a Point"'
      'else:'
      '  print "p is not a point"'
      ''
      '# You can raise error from a Python script to !'
      
        'print "---------------------------------------------------------' +
        '---------"'
      'print "Errors in a Python script"'
      'try:'
      '  raise spam.EBadPoint, "this is a test !"'
      'except:'
      '  pass'
      ''
      'try:'
      '  err = spam.EBadPoint()'
      '  err.a = 1'
      '  err.b = 2'
      '  err.c = 3'
      '  raise err'
      
        'except spam.PointError, what: #it shows you that you can interce' +
        'pt a parent class'
      '  print "Catched an error dirived from PointError"'
      
        '  print "Error class = ", what.__class__, "     a =", what.a, " ' +
        '  b =", what.b, "   c =", what.c'
      ''
      'if p == spam.Point(2, 5): '
      '  print "Equal"'
      'else:'
      '  print "Not equal"')
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 342
    Width = 576
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Button1: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Execute'
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object Memo2: TMemo
    Left = 0
    Top = 0
    Width = 576
    Height = 169
    Align = alTop
    ScrollBars = ssBoth
    TabOrder = 2
  end
  object PythonEngine1: TPythonEngine
    DllName = 'python27.dll'
    APIVersion = 1013
    RegVersion = '2.7'
    UseLastKnownVersion = False
    IO = PythonGUIInputOutput1
    Left = 32
    Top = 16
  end
  object PythonModule1: TPythonModule
    Engine = PythonEngine1
    ModuleName = 'spam'
    Errors = <
      item
        Name = 'PointError'
        ErrorType = etClass
      end
      item
        Name = 'EBadPoint'
        ErrorType = etClass
        ParentClass.Name = 'PointError'
      end>
    Left = 32
    Top = 72
  end
  object PythonGUIInputOutput1: TPythonGUIInputOutput
    UnicodeIO = True
    RawOutput = False
    Output = Memo2
    Left = 136
    Top = 16
  end
  object PyDelphiWrapper: TPyDelphiWrapper
    Engine = PythonEngine1
    OnInitialization = PyDelphiWrapperInitialization
    Module = PythonModule1
    Left = 242
    Top = 15
  end
end
